|
Autocad VBA : umschalten auf Layout nach Namen
Stelli1 am 07.12.2006 um 11:24 Uhr (0)
Hallo,per VBA gehts auch soCode:ThisDrawing.ActiveLayout = ThisDrawing.Layouts("Layout2")Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Benannte Text-Variablen im Layout ?
Stelli1 am 07.12.2007 um 10:35 Uhr (0)
Hallo wwwilli,jedes Layout wird in einem (als) Block verwaltet.Code:For Each layout In ThisDrawing.Layouts Debug.Print layout.Name, layout.Block.Count For Each entity In layout.Block Debug.Print entity.ObjectName Next entityNextÜber Layout.Block kommst du an die Entitys eines Layouts.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Massstab von Layout -Ansichtsfenster
Stelli1 am 31.08.2005 um 10:50 Uhr (0)
Hallo pitsch,Lege mal ein paar Ansichtsfenster im Layout an.Code:Dim Pview As AcadPViewportDim Layout As AcadLayoutDim Entity As AcadEntityDim Anzahl As IntegerThisDrawing.ActiveSpace = acPaperSpaceSet Layout = ThisDrawing.ActiveLayout Für jedes Entity im LayoutFor Each Entity In Layout.Block If Entity.EntityType = acPViewport Then Erster Viewport ist das Papier Anzahl = Anzahl + 1 If Anzahl 1 Then Set Pview = Entity Pview.CustomScale = Pview.CustomScale * 1.2 End If End IfNext En ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Tab bzw. Ansicht für Zugriff auf AcadTable wechseln
Stelli1 am 28.01.2008 um 18:37 Uhr (0)
Hallo Peter,wenn du in der Schleife arbeitest dann nur bis count -1Code:For i = 0 To ThisDrawing.blocks.count -1 If ThisDrawing.blocks.Item(i).Layout.Name = "a0_quer" Then MsgBox "block gefunden" End IfNext iDer Index fängt bei 0 an aber es werden alle gezählt.Eine andere Variante wäre doch über die Layouts zu gehen.Code:Sub Layouts() Dim myLayout As AcadLayout Dim LayoutBlockDef As AcadBlock Dim Entity As AcadEntity On Error Resume Next Set myLayout = ThisDrawing.La ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 18.08.2005 um 11:24 Uhr (0)
Wer kann helfen ?Für die Ausgabe von Vermessungsplänen soll im Layout einpviewport gemäß Blattgröße angelegt werden (Klappt).Die Orientierung und der Maßstab soll im Modelbereich despViewports eingestellt werden. (Klappt mit der Umrechnung derPapierbereichswerte des Viewports)Die untere linke Ecke soll auf einen Wert eingestellt werden. (Klappt).Jetzt soll im Papierbreich (Layout) eine Fahnenbeschriftung undGitterkreuze angebracht werden. Das klappt nur wenn man die Modellbereichskoordinaten (Min/Max) des ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layout Block Attribute eingepasst -> Plot?
Stelli1 am 29.02.2008 um 11:03 Uhr (0)
Hallo,ich verschiebe den Beitrag mal vom VBA ins RuA Forum.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA - Programm aus Kontextmenü starten ?
Stelli1 am 05.07.2012 um 17:31 Uhr (0)
Hallo Dirk,sorry. Das mit dem Layout hatte ich überlesen.Dann weiß ich es auch nicht.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Massstab von Layout -Ansichtsfenster
Stelli1 am 28.08.2005 um 16:22 Uhr (0)
Hallo ....Code:Dim pview As AcadPViewportSet pview = ThisDrawing.ActivePViewportMsgBox "Maßstab = " & pview.CustomScaleDas Verhältnis kann dann errechnet werden.Stelli1------------------
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : noch einmal Selektion
Stelli1 am 19.08.2008 um 16:17 Uhr (0)
Hallo Peter, Zitat:mySS.Select acSelectionSetAll, , , myType, myDataWenn ich mich recht erinnere, wird nur das selektiert was sichtbar ist. Versuch doch mal zuerst auf das Layout zu wechseln und dann dein Selectionset zu füllen. Ist es dann auch noch leer?Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 10.01.2008 um 20:00 Uhr (0)
Hallo Andreas,ich kann mich kaum noch erinnern.Die (Welt)Koordinate des Ansichtsfensters, dass war doch das was du brauchst, ist in der Eigenschaft "Center" gespeichert.Ich hab mal einen Codeausschnitt eingefügt. Vielleicht hilft er dir weiter.Code:Sub Werte_Aktualisieren() Dim Zentrum As Variant If Me.com_Layout.ListIndex = -1 Then MsgBox "Es ist kein Layout angegeben !" & vbCrLf & vbCrLf _ & "Die Funktion kann nur im Layout ausgeführt werden!", vbCritical Exit Sub End If ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 10.01.2008 um 20:04 Uhr (0)
Hallo Andreas,hab noch was gefunden.Code:Private Sub BT_Bezugspunkt_Click() Dim varPunkt As Variant Dim dblPunkt(0 To 2) As Double Dim Angabe As Boolean Dim Massstab As Double If obj_ACAD_app.ActiveDocument.ActiveSpace = acModelSpace Then MsgBox "Im Modellbereich gibt es keine gültigen Ansichtsfenster!" _ & vbCrLf & vbCrLf _ & "Wählen sie ein Layout aus und versuchen es noch einmal.", vbCritical Exit Sub End If If Not aFenster Is Nothing Then obj_ACAD_app.ActiveDocument.MS ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA und Ansichtsfenster
Stelli1 am 27.03.2009 um 15:30 Uhr (0)
Hallo Stolti,Lars hat doch schon geschrieben wie es am einfachsten geht. Zitat:Original erstellt von Lars Geis:Moin Dirk,du kannst es bestimmt auch mit VBA lösen, auf die "herkömmliche" Art und Weise geht es bestimmt schneller und einfacher.Erzeuge dir eine Vorlagenzeichnung, in der die Layer aller Bem. Stile schon drin sind und sage einfach jedem Ansichtsfenster, welche Layer in diesem angezeigt werden sollen und welche nicht. Der Vorteil ist folgender: Du kannst mehrere Ansichtsfenster mit verschiedenen ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 10:59 Uhr (0)
Hallo Dirk,irgendwie kommt mir dein Code bekannt vor. Keine Ahnung wo das Problem liegt.Da du ja immer so grosszügig Us verteilst hier mal ein Ansatz der alle Dateien aus einem Verzeichnis liest und alle Blöcke jeder einzelnen Zeichnung nacheinander in eine leere Zeichnung kopiert und anzeigt. Als Einfügepunkt Markierung ist ein Kreis mit drin.Das kann dann vielleicht auch jemand brauchen der aus einer beliebigen Zeichnung einen Block, ein Layout oder so was in die aktuelle Zeichnung einfügen möchte.Ich g ...
|
| In das Form Autocad VBA wechseln |
